unit AltaTelefonoCliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, StdCtrls, Buttons, XPMan, ComCtrls;

type
  TTelefonoContacto = class(TObject)
    codigo:integer;
    telefono:string;
    interno:string;
    edicion:integer;
  end;
  TfrmAltaTelefonoCliente = class(TfrmBase)
    Label9: TLabel;
    edtInterno: TEdit;
    edtTelefono: TEdit;
    Label1: TLabel;
    btnAceptar: TBitBtn;
    btnCancelar: TBitBtn;
    procedure btnCancelarClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnAceptarClick(Sender: TObject);
  private
    { Private declarations }
  public
    FormLlamante:integer; //0-alta contacto   1-modificar contacto
    { Public declarations }
  end;

var
  frmAltaTelefonoCliente: TfrmAltaTelefonoCliente;

implementation

uses AltaContacto;

{$R *.dfm}

procedure TfrmAltaTelefonoCliente.btnCancelarClick(Sender: TObject);
begin
  inherited;
  frmAltaTelefonoCliente.Close;
end;

procedure TfrmAltaTelefonoCliente.FormShow(Sender: TObject);
begin
  inherited;
  LimpiarForm;
end;

procedure TfrmAltaTelefonoCliente.btnAceptarClick(Sender: TObject);
var objeto:TTelefonoContacto;
begin
  inherited;
  if FormLlamante=0 then
    begin
      objeto.Create;
      objeto.telefono:=edtTelefono.Text;
      objeto.interno:=edtTelefono.Text;
      frmAltaContacto.ltsTelefono.AddItem(objeto.telefono,objeto);
    end
  else
    begin
    end;
end;

end.
